WILF’S 


Wilf Hey pro- 
grams his 
goldfish, sorts 
out sorting and 
turns to his gro- 
| ceries for useful 
storage space. 


ful bit of trivia I often hear an inner voice saying 

‘balderdash’; the fact that I still have a few friends is testi- 
mony to the fact that I am able to restrain this nasty censor 
within me. Recently I saw the highly amusing film Hear My 
Song, and found myself declaring aloud my logical judgment 
against one of these notions cited by the gormless hero to his 
girlfriend — that a pair of goldfish is a fitting gift between 
lovers because the fish are so forgiving of each other — 
explaining that it's ‘because they only have a memory that 
goes back five seconds’. 

Many years ago when I was new to the world of program- 
ming, it became my object to disprove this peculiar notion. It 
sounded wrong: what good was a five-second memory? Other 
facts collided with the idea: some fish mate for life and can 
distinguish their own fry from others. 

Many fishermen speak of a particular specimen that has 
year after year eluded them because it has got to know their 
angling tricks. Salmon return to the river of their hatching after 
many months. Even if some of these tricks were ‘hard-wired’ I 
figured that such woefully inadequate RAM was too poor to 
be a regular design. 

I designed a little test and wrote a suite of programs to ran- 
domise the testing procedure, record the results and calculate 
statistical significance. 

The basic test consisted of a wand with a little red lamp at 
one end and a blue lamp at the other. I would place this, ori- 
ented one way or the other, and with one or the other lamp 
lit, an inch above the water of my tropical fish aquarium just 
before feeding. I would then sprinkle the flakes of food near 
the same coloured lamp for one whole week. 

After a few days the fish would congregate near the correct 
lamp even before I started feeding them. Following the tables 
generated by my programs (written in an arcane language 
called Omniflex), I was able to determine the following facts, 
with a high degree of confidence... 


am a natural sceptic. When somebody tells me some doubt- 


1. Tropical fish can distinguish colours (as I suspected: why 
else are they so colourful if not for their own sakes’). 

2. They have a memory span of at least 36 hours (the maxi- 
mum time between feeds). 

3. They require at least 96 hours to forget one strategy of this 
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complexity and relearn a different one (It took four days for 
them to learn that it was now the blue lamp that meant food). 
Armed with all my computations I waited until some 

gullible soul would recite this bit of nonsense to me again. It 
was Only a matter of time; I bludgeoned the fellow with my 
charts, observations and conclusions to prove that fish indeed 
have a reasonably effective memory. Undeterred, my victim 
simply said, ‘ah yes — but I was talking about goldfish — not 
tropicals’. I count this as my first major programming failure. 


PROGRAMMED READING 

Jim Smith-Wylkes (Bolton) writes with a recommendation for 
a book he found a good read — partly because of its relevance 
to programming. Mostly Harmless by Douglas Adams is ‘the 
fifth book in the increasingly inaccurately named Hitch Hiker’s 
Guide to the Galaxy trilogy’ (to quote its dustcover). 

In one chapter the character Ford Prefect interacts with 
some programming — using Virtual Reality techniques — in 
order to disguise his presence within a security network of 
frightening complexity. He tries to construct a ‘mental block’ 
subroutine, but found that there was already one there: in fact 
he found ‘a whole slew of smooth and plausible denial proce- 
dures and diversionary subroutines exactly where he had 
been planning to install his own’. He eventually just set up 
calls to the procedures that were already there. 

Programming content or not, I don’t think I can really 
enjoy reading a Hitch Hiker book that doesn’t feature Marvin — 
who wore out (being 37 times the age of the universe) in an 
earlier book. 


SORTING WITHOUT ANY SORT OF SORT 

Sorting can be slow, and is a bore to code — usually. The rea- 
son that a sort routine is so time-consuming, even if the 
routine handles all the data in memory at the same time, is 
because most sorting methods involve shuffling around data. 
Some popular methods (such as the notorious Bubble sort) 
are particularly slow because some of the items being sorted 
are moved several times. 

Mary Ray (Manchester) sent me a letter declaring that ‘what 
the PC world needs is a small sort routine that doesn’t move 
anything once it gets into memory: it should simply read them 
into memory all mixed up and write them out again sorted’. 

Well, Mary: here it is. This version, written in GW-Basic (to 
show that it can be done in just about any language) demon- 
strates how to sort the letters of the word PATHFINDER and 
print them out as ADEFHINPRT. Instead of sorting items by 
moving them around, it puts them in a DIM array (lines 150- 
170) and then does some judicious comparisons between the 
items (specifically in line 230). 

For each item there are two pointers: for ITEM$CX), the 
pointers are PTR(X) and PTR(X+10). If you wanted to sort a 
hundred items, your DIMs would have to be larger and the 
pointers for ITEM$CX) would be PTRCX) and PTRCX+100). The 
pointers are set so that each item finds a place in a sort of tree 
— each bud (representing an item) divides into a branch to the 
left (smaller) or right (same value or larger). 

With data in random order the number of comparisons that 
have to be done is very small: in this example, the ten letters » 
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of PATHFINDER require only 25 comparisons. 

When every item has been processed the numbers in the 
PTR array contain all the information needed to write out the 
items in sorted order — without actual sorting! Lines 190-280 
do all the work of setting the PTR numbers, which is equiva- 
lent to mapping out a tree of relationships between the items. 
This tree is called a BSST (Binary Sort/Search Tree). 

Lines 290-370 simply prune the tree, removing one bud at 

24 a time. The leftmost bud is the one removed each time. As a 
bud is removed, the branch that extends from it to the right Gf 
any) is grafted onto the next-lower bud in the tree. Eventually, 
you will prune the tree down to its root (at line 330), and you 
are finished. Note that this routine uses the fact that there is a 
Zero item in every DIM. Because of that, even ITEM$(1) has a 
next-lower bud (onto which we can graft the right-hand 
branch when we get that far). 

In this model the data is built into the code (lines 120-130); 
in practice you would probably read the items from an exter- 
nal file. Similarly you would change line 360 so that each item 
is written to an appropriate output. Here we have sorted one- 
character items, though items could be any length we desire. 


100 REM Quick sorting! 

110 REM 

120: -DATAS* pas eae wie ee 

13:0 DATA ARG OEM RNR pe Rene me 
140 DIM PTR(20) , ITEMS (10) 

150" FOR ES IS Por 1 

160 READ ITEMS (T) 

170 NEXT 
180 REM 

190 FOR I = 
200 NEWTEST 
210 TEST = NEWTEST 

220 NEWPTR = TEST 

230 IF ITEMS(I) < ITEMS (TEST) 
240 NEWPTR = TEST + 10 

250 NEWTEST = PTR(NEWPTR) 

260 IF NEWTEST > 0 GOTO 210 
270 PTR(NEWPTR) = I 

280 NEXT 

290 PTR(0)=1 

300 X=0 

310 PREV=X 

320 X=PTR(X) 

330 IF PTR(X) > 0 GOTO 310 
340 IF X = 0 GOTO 380 

350 PTR(PREV) = PTR(X + 10) 
360 PRINT ITEMS (X); 

370 GOTO 300 

380 STOP 


MISSING LINKS 

Regular correspondent Chuck Pettitt (Melksham, Wiltshire) is 
in the throes of writing a book on Visual Basic 2.0 - one of a 
new range to be published soon in co-operation with PC 
PLUS. He writes that though Microsoft has provided a gener- 
alised Install program for any VB2 project, he thought he 
could produce a better-looking, faster and more appropriate 
one. He invested time to make a good job of it, and found the 
results of his work very satisfactory indeed. Then he tried to 
install a finished VB2 program on to a friend’s PC, and 
realised that he had run into a problem: his Install program, 
having been written in VB2, required VBRUN200.DLL to be 
already on the destination PC in order to run... 

I have had similar problems before, I confess: a first draft 

of a SuperDisk has before now worked on my PC, but failed 
‘to work on another because of a simple missing element. 
How can you avoid the consequences of this sort of embar- 
rassment? I have adopted two practices that usually catch this 
sort of error now. 


i Nw 
<3 
ra 
(=) 


GOTO 250 


1. When testing programs to be exported to a different sys- 


Fd 


tem, go into DOS and delete the path (by keying ‘PATH=’ fol- 
lowed by [Enter]) before running them. This will catch any 
unintentional references to commands or programs on your 
PC that aren’t on others. 


2. Get another person to test your program, with as little 
direction from you as possible. Ideally he or she should be 
ignorant of the product, nearly as clever as you (that may be 
difficult, I admit) and somebody who can be trusted not to 
laugh you into derision when it falls over disastrously, 


I know one programmer who has a guy — a stuffed dummy 
he calls Brock. When he has a programming problem he sits 
Brock in a chair near him (he says) and patiently explains the 
problem — until he realises for himself what the solution is. 
‘Brock is a real help’, he maintains. And I imagine that Brock 
never laughs at him. 


YOUNGER THAN | 

On the SuperDisk this month is an interesting program that 
effectively gives you two extra shift keys: look for it — it’s 
called XSHIFT. It’s a fine idea that works well in DOS (too 
bad, you Windows fanatics). 

I showed it to some of my colleagues in the PC Plus office 
and invited comment. Several thought it very useful, but 
nobody knew what I was on about when I said that it 
reminded me of EMACS bucky keys. 

Many moons ago there was a large editing program that 
had several shift keys within it, unofficially but universally 
dubbed bucky keys. 

EMACS (Edit Macros) was a complex program that actually 
featured a LISP interpreter within it — handy if you think recur- 
sively on your feet — and was so large and slow that EMACS 
was rumoured by some to stand for ‘Eight Megabytes And 
Constantly Swapping’. 

Why did nobody admit to knowing EMACS? Surely not 
because of some hidden hatred of UNIX or LISP (both avail- 
able on the PC)? When I recalled last using EMACS, I suddenly 
realised the reason; I don’t have youth on my side. @ 


Tips, arguments and ideas are gratefully received by 
Wilfs Programmers’ Workshop 

PC PLUS Magazine 

Seven Dials 

Saw Close 

Bath, BA1 1EN 
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A problem that commonly afflicts PC programmers is that of produc- 
ing a program that looks halfway decent in both CGA (Colour 
Graphics Array) colour and monochrome. Until all PC users have con- 
verted to the wonderful world of colour, programmers have to at 
least make sure that displays they create are legible. 


Lo REO OM GReell 


cl GREEN OF REL 


Hd GREY ON Car 
I] BLUE OF WHITE = Qoeaa 


Here is the fruit of my researches into the effect of using CGA 
colour (in text mode) with a monochrome monitor. | understand that 
some monochrome machines (especially laptops) offer an alternative 
way to display colours that can be chosen through a little TSR 
(Terminate/Stay Resident program); if your own researches produce 
a different result when you try the things | have, please let me know 
and | will pass on the information. 


[2 REDON GREE 
ue 
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ol GREEN ON @ev 


In these charts | have used hexadecimal for the attribute byte asso- 
ciated with each character displayed; | have not dealt with the use of 
a blink attribute (to keep things fairly simple), and have recorded the 
effect of using a text mouse cursor set up for the usual trick of 
reversing the colours. 


HOW ATTRIBUTES DISPLAY IN MODE MONO 
disp = standard display 
cur = standard cursor colour 
mse = colour of mouse cursor (and FF xor 77) 


Table Codes: 

xy = colours x (ink) on y (paper) 
(all values are in hexadecimal) 
so GBu means Grey ink on Black paper, underscored 
B=black G=grey W =white u = underscore 


low nibble: 0 1-6 7 
disp cur mse disp cur mse disp cur mse 


high nibble: 

) BB B GG BG B GG BG B_ GB 
1 GBu G GG GG G GG GG G GB 
2-6 GB G GG GG G GG GG G GB 
7 GB G BG GG G BG GG G BB 
8 BB B WG BG B WG BG B_ WB 
9 WBu W WG WG G WG WG G WB 
AE WB W WG WG G WG GG G WB 
F WB W BG GG G BG GG G BB 


Note: ‘grey’ appears in two slightly different tones: 
since they are little different, and cannot occur in 
proximity anyway, here they are both called the same: 
one is enhanced black: the other is unenhanced white. 


Attributes unsuitable for display, cursor, mouse cursor 
or combination of these (sorted from dark to light shades): 


disp cur mse PROBLEM: 


BB OB GG 00 mouse obscure; disp,cursor invisible 


BB OB WG 80 disp and cursor invisible 


GG [2-6]0 mouse obscures 


disp underlined, mouse obscures 


G 
GBu G GG 10 
Ww 


WBu WGu 90 disp, mouse obscure 


BG B GG Of1-6] mouse obscures 


GG G BB 77,F7 disp, mouse obscure; cursor invisible 
GG G GB [1-6]7 disp obscures, cursor invisible 

GG G WB [A-E]7 disp obscures, cursor invisible 

GG G BG _7[1-6],F[1-6] disp obscures, cursor invisible 

GG G GG [1-6][1-6] disp obscures, cursor and mouse 


invisible 


WG G WG [9-E][1-6] __ mouse invisible 


Attributes suitable for ALL display, cursor and mouse cursor (sorted 
from dark to light shades): 


disp cur mse 


GB Gi BG 70 


WB W BG _ FO 


WB W_ WG 


BG B GB 07 


BG B WB 87 


BG B WG _ 8[1-6] 


WG G WB 97 
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On-Line with Almac BBS 


JOIN TODAY - £45.00 per annum and NO On-Line Time Charges 
Focus on the USENET 


The USENET is an on-line messaging service which is long established over unix systems. Recently 
ALMAC BBS brought the USENET to PC based users and thus made available a rich source of 
knowledge on a wide area of topics. We carry over 1600 newsgroups all of which are available for 
callers to read. Should you get interested you can also write messages to other callers in those 
newsgroups and thus correspond with over 15 million other readers of the USENET. To PC users these 
newsgroups have peculiar names but you soon get the hang of it. Below we list just some of the new 
newsgroups added in the last month. Note that the first part of the name of each newsgroup gives you 
the area it falls into ie comp = computer related, soc = social, rec = recreation, etc. 


New USENET newsgroups added in the last month: rec.aviation.student, rec.sport.fencing, 
uk.transport, gnu.g++.lib, alt.games.video.classic, rec.music.makers.guitar, rec.sport.table-tennis, 
alt.fan.tolkien, sci.physics, soc.culture.croatia, alt.president.clinton, alt.adoption, comp.lang.c++, 
sci.psychology, alt.superman.dead, rec.autos.antique, alt.rock-n-roll.classic, alt.culture.alaska, 
bionet.women-in-bio, alt.sustainable.agriculture, comp.unix.dos-under-unix, alt.-horror.werewolves, 
soc.religion.quaker, soc.culture.bosna-hergvna, alt.tv.melrose-place, sci.chaos, and many others. 


FREE GUEST ACCESS: 0324 665371 ISDN GUEST ACCESS: 0324 666586 


Pate SPECIAL MODEM OFFERS 


FREE 3 Month's Silver Subscription to Almac BBS with every modem purchased. 
MICROLIN fx Pocket Modem 


Pace Ultralink 32 Plus Modem 


Excellent starter modem runing at 
2400baud with Fax send and receive. 
Comes with v21, v22, v23, v22bis, 
MNP 4,5 & 10, Group 3 Fax. Comes 
with Winfax Lite & DosFax Lite 
software. Internal half card and 
external pocket versions both 
available. 


The PLAIN ENGLISH modem from 
Pace. It teils you in plain 
english what the modem is doing. 
None of that comms gobildygook. 
Has v21, v22, v23, v22bis, v32, 
v32bis, MNP4 & 5, Dial back 
security, 2 & 4 wired leased line 
and just about anything you ever 
wanted in a modem. 


£ 189.00 + vat £ 499.00 + vat 
Prices above are ex-vat. Serial Cable £10.00 Post £4.00 Next Day Courier £12.50 


We accept the following credit cards: 
VISA / ACCESS / MASTERCARD 
or send cheque or postal orders to 

our FREEPOST address below. 


3 AL Ltd. 141 Bo'ness Rd, FREEPOST, 


ST Anan Granaemouth. FK3 SBR 
Tel: 0324-666336 Fax: 0324-665155 
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